<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>

<!--#include file="includes/cb_adovbs_sys.inc"-->
<!--#include file="includes/header_sys.asp"-->
<!--#include file="includes/generally_sys.asp"-->
<!--#include file="includes/translate.asp"-->
<!--#include file="includes/login.asp"-->
<%
On Error Resume Next
'Codepage einstellen
Session.CodePage = 65001'Unicode, 8-bit encoding
Response.CharSet = "utf-8"

'falls ?ber die admin overview ge?ffnet wird
Dim a1
a1 = Request("a1")
Dim a2
a2 = Request("a2")

'username und password von der eingabe
Dim str_user_id
Dim str_pw
str_user_id = Request("T1")
str_pw = Request("T2")



'Sprache -----------------------------------------------------------------
Dim lng_id
lng_id = Request("lng")
If IsEmpty(lng_id) or IsNull(lng_id) or lng_id = 0 Then
	If IsEmpty(Session("ses_i_language") or Session("ses_i_language") = 0 or IsNull(Session("ses_i_language"))) Then
		lng_id = 1
	Else
		lng_id = Session("ses_i_language")
	End If
end if
Session("ses_i_language")=lng_id'0=keine auswahl 1=german 2=english
'--------------------------------------------------------------------------
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strComplete_sys

Dim str_msg_01
Dim str_msg_02
Dim str_msg_03
Dim str_msg_00

'fc_i_login = 0
str_msg_00=fc_value_string(Session("ses_i_language"), "var_glob_txt_1035")
'old Con_Msg_error >> "Bad accesses!"

'fc_i_login = 1
str_msg_01=fc_value_string(Session("ses_i_language"), "var_glob_txt_1004")
'old Con_Msg_error >> "Bad accesses!"

'fc_i_login = 2
str_msg_02=fc_value_string(Session("ses_i_language"), "var_main_m_32")
'Diese Login Information ist falsch oder nicht mehr g?ltig!

'fc_i_login = 3
str_msg_03=fc_value_string(Session("ses_i_language"), "var_glob_txt_1006")
'Kombination Benutzername und Passwort ist falsch. Versuchen sie es noch einmal.

'SYS
Session("ses_title")="Growmetry"
Session("ses_admin_log")="Admin"
Session("ses_first_log")="EX-"
Session("ses_i_first_log")=0'1=first login 0=kein first login
Session("ses_i_log")=0'0=first login (key)
Session("ses_Username_log")=0'eingabe login
Session("ses_Password_log")=0'eingabe login

Session("ses_str_User_id")="n/a"'die eingeloggte userid
Session("ses_str_User_info_all")="n/a"'die eingeloggte userid + head org + sub org + trainer
Session("ses_str_pw")="n/a"'das eigegebene pw
Session("ses_str_User_name")="n/a"'der eingeloggte username

Session("ses_path_sys")="http://localhost/www_zwick01/sys/main_menue.asp"
Session("ses_i")=0'z?hlt mit wie oft mit einer session (browserfenster) angemeldet wurde

Session("ses_iu")=0'user id
Session("ses_ig")=0'user group

Session("str_logfree")="A1"'ob userid und pw ok sind - A1 >> nein - A0 >> ok

Session("ses_str_master_id")="n/a"'die eindeutige vom system erstellt pw zb. lhQsnMNkBJIJ
Session("ses_str_log_id")="n/a"'die eindeutige vom system erstellt userid zb. E0-YNRKBFKUEE und ohne <E0->

'email
'i_type
'2 - Head Org	
'3 - Org		
'4 - Trainer		
'5 - Athlete
Session("ses_i_ebene")=0'von welcher ebene aus wird dsa email aufgerufen
Session("ses_i_email_template")=0'vorlage f?r das emailtemplate
Session("ses_user_email")=0'die mailadresse des eingelogten users
Session("ses_mail_from")="office@growmetry.com" 'Absender 
Session("ses_mail_to")="n/a"'emailadresse an wem das mail gesendet wird
Session("ses_mail_to_02")="n/a"'falls an eine zweite emailadresse gesendet wird
Session("ses_mail_subject")="n/a"
Session("ses_mail_body")="n/a"
Session("ses_mail_user_name")="n/a"'der name des user der das mail bekommen wird

'zeichenlaenge (min. laenge)
Session("ses_sub_org_len")=3
Session("ses_coach_len")=3
Session("ses_userid_len")=4
Session("ses_pw_len")=8
Session("ses_master_id")=12'zeichenl?nge die eindeutige vom system erstellt pw zb. lhQsnMNkBJIJ
Session("ses_log_id")=10'zeichenl?nge die eindeutige vom system erstellt userid zb. E0-YNRKBFKUEE und ohne <E0->

'schleifendurchlauf
Session("ses_i_pw_loop")=9999'wie oft bei der pw vergabe vom system eine schleife durchlaufen werden soll

'tmp session f?r die id des forms das ge?ffnet werden soll
'beim ersten login
Session("ses_frm_first_register")=0
'headorg
Session("ses_id_tmp_01")=0
Session("ses_frm_go_back_01")=0
'division
Session("ses_id_tmp_02")=0
Session("ses_frm_go_back_02")=0
'emailinfo
Session("ses_i_email_template")=0


'0 >> normalbetrieb - 1 > Applikation im entwicklungsstatus - nur f?r testbetrieb - es werden wichtige var ausgegeben
Session("ses_dev")=0

'das eindeutige pw f?r das erstmalige loggin
Session("ses_str_master_id")=0

'entscheidet ob mit diverse admin all frm gearbeitet werden darf oder nur seine eigenen stammdaten zu sehen sind
'Session("ses_i_stammdaten_look")=0

'id
Session("ses_i_usergroup")=0
Session("ses_i_admin")=1'zwick
Session("ses_i_head_org")=0'id des head org
Session("ses_i_org")=0'id des org
Session("ses_i_trainer")=0'id des trainers
Session("ses_i_athlete")=0'id des athleten

Session("ses_str_head_org")=0'string des head org
Session("ses_str_org")=0'string des org
Session("ses_str_trainer")=0'string des trainers
Session("ses_str_name_admin_head_org")=0'string des admin der head org
Session("ses_str_name_admin_division")=0'string des admin der division
Session("ses_str_name_admin_trainer")=0'string des admin der division

'id der letzten Auswahl... zb. wenn man ein Form verl??t und wieder zur?ck kommt wird das drop wiede so ausgew?hlt
'zb. trainer_admin_all.asp	
Session("ses_i_last_select_01")=0
Session("ses_i_last_select_02")=0

'isx = 0 >> keine neue stammdateneingabe ?bers login
'isx = 2 >> neue head org stammdateneingabe ?bers login
'isx = 3 >> neue org stammdateneingabe ?bers login
'isx = 4 >> neue trainer stammdateneingabe ?bers login
'isx = 5 >> neue athlete stammdateneingabe ?bers login	
Session("ses_i_isx")=0

'i_type 1=Admin / 2=Head Org / 3=Org / 4=Trainer / 5=Athlete
'wenn es ein login ist wo der benutzer selber ausw?hlen kann ob er sub-org oder ein trainer ist
'dann ist >>Session("ses_i_type")=0
Session("ses_i_type")=0

'wenn es f?r den angelegt user eine dummy org (Non Commercial) dar?ber gibt >>> = 1	
Session("ses_i_dummy_head_org")=0
Session("ses_i_dummy_sub_org")=0

'killed alle sessions
'Session.Abandon

Dim str_title
str_title = Session("ses_title")
Dim str_emaillink
str_emaillink = Request("reg")

'2012 03 04 variable die die Function fc_value_string umschaltet (f?r dyn. ?bersetzung)
'1= der Text wird angezeigt
'2= der Variablenname wird angezeigt
'x_translate_function
Dim sql_o1
Dim rst_01
sql_o1 = "SELECT lng_k_function FROM x_translate_function WHERE id_k_lng = '1'"

Set rst_01 = Server.CreateObject("ADODB.Recordset")
rst_01.Open sql_o1, objConn, adOpenStatic, adLockReadOnly   
    If Not rst_01.EOF Then
        Session("ses_i_fc_value_string")= rst_01.Fields("lng_k_function").Value
    End if
	rst_01.Close
set rst_01 = Nothing

'-----------------------------------------------

Dim i_fc_login
Dim trancd

Dim btnSub_01
btnSub_01 = Request("btnSub_01") 

'Save - update
If Len(btnSub_01) > 0 Then
	trancd = "S"
else
	trancd = "A"
end if

'Response.Write("btnSub_01: " & btnSub_01 & "<br>")
'Response.Write("trancd: " & trancd & "<br>")

If trancd = "S" Then
  i_fc_login = fc_i_login(str_user_id, str_pw)
  '1=Anmeldung fehlgeschlagen
  '1000=erfolgreiches login
  'Response.Write("i_login#1: " & i_fc_login & "<br>")
  
  'fc_i_login = 1000'erfolgreiches login
  
  if i_fc_login = 1000 Then
	  Response.Write ("<SCRIPT LANGUAGE='Javascript'>this.location.href='index.asp';</SCRIPT>")
  end if

end if'trancd = "S"

%>
<script type="text/javascript" language="JavaScript">
//meldungen
//i_fc_login=1 >> Anmeldung fehlgeschlagen
//i_fc_login=2 >> Diese Login Information ist falsch oder nicht mehr g?ltig!
//i_fc_login=3 >> 'Kombination Benutzername und Passwort ist falsch. Versuchen sie es noch einmal.
window.onload = function(){
    i_fc_login_msg = '<%= str_msg_00 %>';
    i_fc_login = '<%= i_fc_login%>';
    if (i_fc_login === '0'){
        alert(i_fc_login_msg);
    }
    location.href='index.asp';
}

</script>